home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #260 (1993)(Rhein-Sieg-Soft).zip / Franz PD Disk #260 (1993)(Rhein-Sieg-Soft).adf / MÄXJE / Mäxje (.txt) < prev    next >
AmigaBASIC Source Code  |  1993-08-06  |  1KB  |  52 lines
  1. REM ** Mäxje-Menue ** (Mäxje V2.0)
  2. REM ** v. HP Biehl **
  3. REM *** Juni 1993 ***
  4. COLOR 1,0:CLS
  5. PALETTE 0,0,0,0
  6. PALETTE 1,0.9,0.9,0
  7. PALETTE 2,0,0,1
  8. LOCATE 2,31:PRINT "MÄXJE von HP BIEHL"
  9. COLOR 3,0:LOCATE 3,31
  10. PRINT "~~~~~~~~~~~~~~~~~~"
  11. COLOR 1,2
  12. LOCATE 5,33:PRINT "             "
  13. LOCATE 6,33:PRINT " Einzelspiel "
  14. LOCATE 7,33:PRINT "             "
  15. LOCATE 10,33:PRINT "             "
  16. LOCATE 11,33:PRINT "   Turnier   "
  17. LOCATE 12,33:PRINT "             "
  18. LOCATE 15,33:PRINT "             "
  19. LOCATE 16,33:PRINT "  raus hier  "
  20. LOCATE 17,33:PRINT "             "
  21. COLOR 3,0:LOCATE 20,24
  22. PRINT "Bitte entsprechendes anklicken!"
  23. LINE(257,32)-(359,55),3,b
  24. LINE(257,72)-(359,95),3,b
  25. LINE(257,112)-(359,135),3,b
  26. auswahl:
  27.  WHILE MOUSE(0)=0:WEND
  28.  IF MOUSE(1)<257 OR MOUSE(1)>359 THEN auswahl
  29.  IF MOUSE(2)>31 AND MOUSE(2)<56 THEN auswahl1
  30.  IF MOUSE(2)>71 AND MOUSE(2)<96 THEN auswahl2
  31.  IF MOUSE(2)>111 AND MOUSE(2)<136 THEN auswahl3
  32.  GOTO auswahl
  33. auswahl1:
  34.  COLOR 2,1
  35.  LOCATE 5,33:PRINT "             "
  36.  LOCATE 6,33:PRINT " Einzelspiel "
  37.  LOCATE 7,33:PRINT "             "
  38.  CHAIN"Mäxje1"
  39. auswahl2:
  40.  COLOR 2,1
  41.  LOCATE 10,33:PRINT "             "
  42.  LOCATE 11,33:PRINT "   Turnier   "
  43.  LOCATE 12,33:PRINT "             "
  44.  CHAIN"Mäxje2"
  45. auswahl3: 
  46.  COLOR 2,1
  47.  LOCATE 15,33:PRINT "             "
  48.  LOCATE 16,33:PRINT "  raus hier  "
  49.  LOCATE 17,33:PRINT "             "
  50.  SYSTEM
  51.  
  52.